. 1394.15.88 19:38 RIC: Changed CO to take character in a-reg.- 
3 Changed repeat to take char {n A-register 
; and count in C-register. 
+ Expanded comments in beginning. 
$ Rearranged comments so that assembled 1.1st 
3 would fit in 8@ columns. 
$84.11.88 18:16 RIC: Added comment-tie RS232 DSR input to RS232 
receive data input. 
304.05,.80 08:01 RIC: Recalculate cycles not counted by 8253 for 
5 baud rate calculation. 
304.84.88 17:25 RIC: All functions tested. Monitor "done". 


pOSTO I IIOIOIOICIOI IOI OI ICID IIIT IIIT TTT ITI I IIIT II TIT TIT III OI III IIE 


* 
7" Copyright 198% Raymond J. Clark * 
iis Permission is granted to reproduce this monitor 
{n whole or in part, by any means, for any pur- 


pose other than sale, barter, or profit of any 
kind. 


In return it 1s requested that this copyright 
notice be included with the portion copied in 
recognition of the time and effort invested in 
this software. 


* 
« 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


i IOI IOI IIT ICIOUI IOI IO IOI IIIT IT TIT IT TTI TT I IAI II OI II III I AIT 


anne sces-85 <= 1824 byte monitor wae 

*x*** Start up message: Lat 

kK ft 

totOk Mxxx.¥ cree 

| wane XXX = last used address waa 
rei v = version number which tical) 

I array 1s incremented every nen 
Perey time code 1s changed. ween 

**** Direct comments, suggestions, notes about belctiahes 

! **** bugs, etc. tot ween 
som wienem 

| som Ray Clark wwe 
Hi pore School of Electrical Engineering bicbbes 
bhedched Purdue University wanw 

i Elst lil West Lafayette, IN 47987 ter 
a KK soon 
| «eee UNIX login "clark* wane 
wR we 


On power up type a control-d. 8253 divisor calculated 
automatically. 


Works from 158 to 968% baud. 


With 3.579 MHz Color Burst crystal: 
Works from 118 to 960@ baud. Communicates at 
19208 baud but tape load function will not work. 


*** Commands: 


Li joad intel hex tape. Bias not implemented. 
"answer" = G on exit if no errors detected. 
If errors were found, answer = B 
edit memory in hex. See comments in code. 
goto address. Stack pointer reset. 
dump memory. 
punch intel hex tape. 

cr) nop. Does not change one byte “answer 
print one byte message (answer) left by last 
command. This is cleared before the execution 
of each command. 


y-v0OM 


The "answer" 1s cleared before each command 1s run, 
except 7 and (cr) do not clear it. 


The L, G, D, and P commands call an "ok" subroutine to 


‘ 
' 
+ 
3 
3 
3 
3 
3 
h 
3 
, 
3 
7 
; 
3 
3 
7 
: 
: 
1] 
3 
; 
3 With 4 MHz crystal: 
+ 
+ 
3 
3 
3 
: 
+ 
3 
3 
3 
3 
3 
+ 
; give you a last chance to abort the command. A (cr) will 


188 
189 
118 


Uz 


124 


138 


145 
146 


153 


awoR Q 


18 
18 


18 
18 


28 
28 


24 
24 
27 


28 
28 


aL 
a 
c3 


e3 
a 


FF13 
6aBe 


818 


3 go ahead and execute the command, anything else aborts. 
3 

BASE equ g ybase address of monitor 

MEMTOP equ 13ffh  ;top of memory 

WIDTH equ Oth ;controls the width of “dump" “punch" 
3 fh = 16 bytes, 53 columns 
4 + B7h = B bytes, 29 columns 
trap equ 1988h yvectors for hardware interrupt lines 
rst55 equ 1818h 

rst65 equ 1918h 

rst75 equ 162Hh 

timel equ 21h 

timct] equ 23h 

sercon equ Bih 

serdat equ BBh 

CRDLY equ Oe scarriage return delay in 19mS units 


7 
; Reset, power-up restart, and RST # entry point 


org BASE+® 
1x4 sp,STACKINIT 3; Initialize stackpointer 
nop 


jmp . entry 


{SSeS eee weeeeseesenseesessees 


; 
3 RST 1 entry point 


org BASE+@8h 3 rst 1 
db 2,2 ,8,8,8,0,8,8 
Bs Be Be es 


RST 2 entry point 


org BASE+18h 7 rst 2 
db BB, 80,008,088 
C2 Ce we ew 


, 
; RST 3 entry point 


org BASE+18h s rst 3 
db G8, 8,8, 8,8, 8,8 
Seek Se & 


jesse 


; RST 4 entry point 


org BASE+28h 3 rst 4 
db 6,0 ,8,8 


TRAP entry point : 


org BASE+24h ; trap 
jmp trap 
nop 


3s RST 5 entry point 


org BASE+28h yorst 5 
db 2,8, 8B 


| 
| 


168 
161 


168 


175 
176 


183 


198 
HERG 


199 
288 
201 
282 
283 
204 
285 
206 
287 
288 
209 
218 
211 
212 


228 


ris 
2c 
af 


3a 
38 


38 
38 


6a 


1818 


1818 


2018 


Bab2 
9482 
9782 
b3a2 
cab2 
e182 
F692 
1983 
3F 93 
4aB3 
5aW3 
7d83 
8523 
9183 


6a 3e 82 


6c 


d3 


i 


be 3e 48 


3 
i 


3 
3 
3 


RST 5.5 entry point 


org BASE+2ch yorst 5.5 
jmp rst55 
nop 


RST 6 entry point 
org BASE+32h s rst 6 


db 88,8 ,8 
oo B | 


RST 6.5 entry point 


org BASE+34h 3 rst 6.5 
jmp rst65 
nop 


eeesseeseceessass: eeeecsss 


RST 7 entry point 


org BASE+38h sonst 7 
db 2,0 ,8,2 


Seeeceeesesesseesss 


RST 7.5 entry point 


org BASE+3ch 
jmp rst75 
nop 


org BASE+49h 
Jump table for monitor subroutines 
jmp cI ychar returned in A register 
jmp CICO schar returned in A register 
jmp co char passed in A register 
jmp crif sprints (cr) (1f) 
imp ghw y;word ret in h&l or cy=#1 & bad char in A 
jmp ghb ybyte ret in A or CY=1 & bad char in A 
jmp ghd ydigit ret in A or CY=1 & bad char in A 
jmp msg j;address of Sffh terminated msg in d&e 
jmp phw sword passed in h&l 
jmp phb jbyte passed in A 
jmp phd ydigit passed in A 
jmp space print space 
jmp subl6 sCh&1) <= Ch&1) = (d&e) 
jmp ucase  j;upper to lower case conversion 
jmp cmpl6 suncomment when cmp16 routine included 


Power-up and Reset initialization 


Twiddle, twiddle little thumbs. .. . 


entry: equ s : 
; hardware mvi a1 : 
; delay is twiddle:call dims tdelay 19 mS 
3 long der a % 
+ enough jnz twiddle ; 
3 
} now initialize usart chip 
: mvt a,082h ;force usart to expect command word 
out sercon 
mvi 2,248h ;now make usart to expect mode word 


231 


233 
234 


248 
241 


259 
269 
261 


263 
264 
265 


267 
268 
269 


292 
293 
294 
295 
296 
297 


299 
3B 
381 
302 
323 
384 
385 
386 
387 
398 
329 


78 


me 
74 


76 
78 


d3 


Se 
d3 


3e 
d3 


out sercon 
mvi a,8ceh 
out sercon 
mvt a, 837h comman 
out sercon 


1—-------2® 


; 
3 
+ 
4 
3 
; 


Calculate baud rate assuming 


*x*** DSR/ must be connected 
on the RS232 side of th 
SCCS-85 be sure to cut 
board connecting the RS 
+12v power supply. 


audl: in sercon 
ric 
jne baudl 
mvi a,278h 
out timet 
mvt a,-35 3 8985 
myi a,-4l 3 8089 
out timel 
mvt a, Bffh 
out timel 
at baudl: javg time o 


X16 clock 

8 bits of data 
no parity 

2 stop bits 


xmit enable 

dtr/ = 1 

revr enable 

norm op, (not break) 
reset error flags 
rts/ = 1 

1 = internal reset 
asyncronous mode 


user types a control-d 


to RxD. These could be connected 
e 1489 RS232 receiver. On the 
the trace on the bottom of the 
232 dataset ready input to the 


eeaae 


swait for line to drop 
* 
3 


;set up timer to time next 4 bits 
$ 
334 cycles not counted by timer 


342 cycles not counted by timer 
plus one for +1 after 1's comp 


ut of loop after drop. 


3 loop 24 cycles long - 12 
sric... = 
sinc os 
smvi = 
pout - 
gmvi 
yout - 
smvi a, 8ffh... 
jout timel. sa 
at baud4: yavg time into loop since rose. 
3; loop 24 cycles long... . + 12 
PPC ese evereceeevsevecens . ihe 4 
sdne baud4 with cy=8 8885/8980 + 7/18 
smvi a,4Gh..6-. 
yout timetl.... 
jtotal cycles not counted by timer. .-34/48 
3 8285/88 
aud3: in sercon jwait for line to rise 
ric 
ie baud3 
baud4: in sercon 
ric 
jne baud4 ; 
3 
mvi a,4@h ;counter latching command 
out timct) 3 
mi a,7@h 3set up timer to read 1sb,msb 
out timet] + 
in timel s;get Isb of count 
mov 1,a 3 
in timel 3get msb of count 
mov h,a 3 
mov a,l ;compliment count - don't need to 
cma add one because taken into 
mov l.a 3 account tn initial load of 


349 
358 


352 
353 


355 


357 
358 


368 
361 


363 
364 


366 
367 
368 
369 
378 
371 
372 
373 
374 


376 
377 


38m 
381 
382 
383 
384 
385 
386 
387 
388 


28 
ff13 


baud5: 


3 


3 COMMAND LEVEL 


comnd! 


i 


emdnxt? 


mov 
cma 
mov 


mvi 
ora 
mov 
rar 
mov 
mov 
rar 
mov 
der 
jnz 
act 
mov 
mov 
act 
mov 


mvt 
out 
mov 
out 
mov 
out 


equ 


xd 
call 


call 
call 
ani 

call 


cpl 
jz 


Ixd 
push 


o> 
2 


TROGURTON 
o 
c 
a 
a 


serdat 


3 counter. 
+ 


pshift count right 6 
jey=M to come in left end of H 


round 


propagate possible round-up 
carry into H. 


initialize timer chip to generate 16X baudrate for 


{nit timer 1 to divide by n 


;print startup message 


yeat garbage character 


- get character; jump to appropriate routine 


$ 


d,prmpt 
msg 


cico 
space 
7fh 
ucase 


Bdh 
comnd 


d,comnd 
d 

19) 

ask 
h,emds 


m 
cmdfnd 


h 
h 
h 
b,m 
b 
emdnxt 


prbad 


$s 
psw 
a,’ 
answer 
psw 


;print command prompt 


j;put in if ucase taken out 
yconvert low to up case & strips parity 


yspectal case, (cr) 1s nop that does not 
3; clear the answer 


;addr for pseudo call completed by pchl 
$ 


yspecial case '?', must not clear 
3; answer first. 


scan command table 


if matches go process 


check for end of table 
not end...try next entry 


print error message and return. “comnd" 
is on stack as return addr for command 


clear answer 


3get address 


— 


397 
398 
399 
420 


488 
409 
41g 
411 


413 
414 


416 


fe 


19F 
112 
115 
118 


119 
lle 
11lf 
122 


123 
126 


127 


cd 
3a 
cd 
co 


cd 
da 
cd 
dB 


31 
eo 


c3 


7483 
fF13 
9782 


cal2 
fens 
2283 


FF13 


Fema 


pchl 


+ 
PRE ORRRRRH end of command level S*ARRRKAR NAAR RENE NR HER 


FOI GIGIIIOIDISISISIDIOI I OITIOIOI SIDI III IOI IDIOIOIOI III TOTTI TOT IATA AI IAA IAA 


print 


sk? call 


one byte note left by last command 


FOR IOISIOIIIIOIIIOOOE end of 20 QUESTIONS RIOR RIOR IIR RIN IN 


DIOS GIO GIO ICICI OICICIOI I ICIOIIIOI IIT ISIER OI ITO TTI TOIT OT TOTS TOT TT TT IOI IITA 


3 


; 
$ 
; 
+ 


5 
i 
i 
3 
5 
+ 
H 
+ 
i 
‘ 
; 
+ 
3 
3 
+ 
4 
i 
3 
5 
5 
3 
; 
5 
i 
H 


GOTO routine - 


jotot call 


jmp 


starts execution in memory location 


ghw get hex word 


error ; 
okck 3 
3 
sp,STACKINIT yinitialize stack pointer 
;jmp to location, return addr is on stack 
error 


TORII UEIGSIIIOIOIODIIE end of goto POUT Ine OTE O OEE UII IER III II IRIN 


FOO RIGOR IOI ICICI I III I IIIT TOIT TOT IT TOT TITAS ATS IIA SII ASAT ASIII INA IA 


Memory editor routine 


MEMED - Hexadecimal Memory Editor 


1) Computer types (cr),(1f), 


ra 


2) User enters one of the following: 


3) 
4) 


a) 


b) 
c) 


Valid Hex Word (four hex digits) - goto 
step 3 

"7" = Exit editor by doing a “rst 2" 
Anything else - type “ what ?" and 


goto 1 


Computer types ") = xx ", where xx is the con- 
tents (in hex) of the memory byte addressed. 


The user now has a number of things he can 
type: 
a) Valid Hex Byte (two hex digits) - overwrite 


b) 


the memory location addressed with this 
byte. Then read another character from 
the user and continue with 4b. 


A non-hex character - do one of the follow- 
ing? 


ie) (cr) or " " - Address the next sequen~ 
tial location and print the address and 
contents like this: 
(or), C1f),"Caddr) = xx " 


41) ',' = Re-display the same location Tike 
this: 


(er), (1f),"Caddr) = xx * 

411) "-" - Address the next previous loca- 
tion and print the address and contents 
like this: 

(or), (1f),"Caddr) = xx " 


iv) "/" - Goto step 1 and read a new ad- 
dress 


v) Anything else - Type “ what 
2" and treat like a "." 


Ss 


Note - If option "a" is not executed then memory 


{s not altered. 


472 12a 11 d383 memed: 1x1 d,form2 ;print "cr, 1f, ¢" 

473 12d cd 1883 call msg 

475 138 cd ca@2 call ghw 

476 133 d2 3f81 jnc ok 3get hex word into HL, jump if valid 
478 136 fe 2f cpl 2 a bad char received - was it "/" 

479 138 cB rz 3g0 back to command level if so 

481 139 cd 6d83 call prbad sprint "what ?" 

482 13c c3 2aGl jmp memed ythen try again 

484 13f cd 9881 ok: call discon j;display contents of location 

485 142 cd 4881 call edit ;then begin editing 


486 145 c3 2afl jmp memed oupe 1f edit returns 


end memed 


Get either a new hex byte to be written where HL points, 
followed by another command, or just another command. 


Bat we Sees Shims 


494 148 cd e182 edit: call ghb sget the new hex byte if typed 

495 14b da 5781 je next ;dmp if other than hex byte received 

496 14e 77 mov mya yelse store it in memory 

497 14f cd 7483 call space space to reinforce that once two digits 
3 3} are entered, location 1s changed. 

499 152 cd 94982 call cIco yand get another char& echo it 

5@@ 155 e6 7f ant 7fh sk111 top bit 

582 187 fe d next: cpl Bdh scarriage return? 

583 159 c2 6081 jnz el 

584 15¢ 23 inx h 

505 15d c3 7d#@1 jmp pr syes- print NEXT location 
$ 

587 168 fe 20 el: cpl ae jor blank 

588 162 c2 6991 jnz 22 

589 165 23 inx h 

518 166 c3 7dB1 jmp pr syes- do the same 
7 

512 169 fe 2e  e2 cpl et + period? 

513 16b ca 7d@1 jz pr sprint current location 

515 16e fe 2d e3: cpl ‘at ; dash? 

516 178 c2 7781 jnz e4 

517 173 2b dcx h 

518 174 c3 7d@1 jmp pr syes - print previous location 

528 177 fe 2f edt cpl y slash? 

521 179 c8 rz 3edit all done if so 

523 17a cd 6d83 call prbad 31f none of the above, print “what 7?" 
; 

525 17d cd 83@1 pr: call dismem ;display the new current memory location 

526 188 c3 4821 jmp edit jand loupe 


3 Print CR, LF then an ( followed by the contents of HL in hex. 


538 183 11 d3@3 dismem: 1x1 d,form2 ;do cr,1f, "(" 
531 186 cd 1883 call msg 

532 189 cd 3f83 call phw 

533 18c cd 9881 call discon 

534 18f c9 ret 


HERR discon tee 


3 
; pointed to by HL 
d 


print ') = ' followed by the contents of the memory loc. 
541 198 11 ceB@3 discon: Ixi d,form 
542 193 cd 1883 call msg 
543 196 7e mov a,m 3get contents of mem loc. 
544 197 cd 4a83 call phb sprint it 
545 19a cd 7d83 call space 


546 19d c9 ret 


——_— 


569 
561 
562 


565 
566 
567 


569 
578 
571 


605 
606 
687 
688 


618 
611 


613 
614 
615 
616 
617 


619 
628 
621 
622 


lal 
la2 
lad 


la7 
1aB 
la9 


lac 
lae 
1b1 


1¢4 


17 


lca 
Icb 


lec 
lef 
1d1 
1d3 


1d6 
1d8 


1d9 
Ida 
Idb 
Ide 
ldd 


Ide 
lel 
le2 
le3 


ed 


b7 
3e 
ca 


7a 
b7 
ca 


3e 


32 
co 


ed 


cd 
4f 


cd 
67 
cd 
6f 


ed 


ed 


ed 


79 
co 


TERRE EMI end of memory Editor MARA R EERE RRR KARE 


JOOS IGISIOIISISISIISIGISIIIOIOISIOIUISIOISIOR IIIS SIDIIDI GI IOIOI IOI II IIIT ITO I IOI IAT. 
Hex-format loader 


sget the next record and process it 


at this point the A register contains the length of the record 
just processed - see if the record length was zero. If so then 
the loader has found the end of the file and is finished 


;compare the A reg. to 
yanswer to question = Good 
;jump to "done" 1f equal to & 


3 the record was not the last - see if any errors were detected 


$ 
ysee if the "error" flag {1s non-zero. 
31f not, go do next record 


3;store "Bad" flag {n answer to question 


JO IOIOEIIOOIOUOSIOOIOIOIOOE end of main PROg ram OOO UO OIE ICO COT 


3find the record mark 

yget the record length Into the C reg. 
;put the load address field into the HL 
spair 

; 

; 


yget the record-type byte, don't do 
janything with it 


;put the next N=(C) bytes into memory 
ystarting where HL points 


sread the checksum byte 


;put the record length back into A reg. 
;return from subroutine 


pOrrrerEEEOIOO end of 2nd level of subroutines *** sii H IHR 


3get character from CRT 
3strip off 8th bit 


clear D register 


scopy C reg. to B 

3get remaining byte count 

3get flags 

sreturn from subr. if none left 
3else decrement b reg. 


yget byte from data field 
3store in memory 
;bump pointer 


b281 loader: call getrec 

; 

: ora a 
47 mvt a,'G' 
ae@1 jz done 

mov a,d 
ora a 
Gel jz loader 
cee mv a,'B! 
ff13 done: sta answer 
ret 

; 

; Ist level of subroutines 
cc@l getrec: call fndmrk 
e681 call Ighb 

mov cya 
e621 call Ighb 
mov h,a 
e621 call Ighb 
mov l,a 
e6f1 call Ighb 
d9B1 call data 
e681 call Ighb 
mov a,c 
ret 

3; 3rd level of subroutines 
8a82 fndmrk: call cl 
TF ani 87th 
3a cpl wee 
ecB1 jnz fndmrk 

an mvi d,8 
ret 
mov b,c 
loop: mov a,b 
ora a 
rz 
der b 
e621 call Ighb 
mov ma 
inx h 
da@l jmp loop 


peReR REE end of 


390 back for next char. 


Bd Te Ye) OSORIO III IR 


629 
638 
631 
632 
633 
634 


646 
647 
648 
649 
658 
651 
652 
653 
654 
655 
656 
657 


661 
662 
663 
664 
665 


669 
678 
671 


676 
677 
678 
679 
688 
681 
682 
683 
684 
685 


687 
688 
689 
698 
691 
692 
693 
694 
695 
696 
697 


699 
728 
781 


1e6 
led 
lea 
leb 
lec 
led 


lee 
Ltt 
1f4 
ure 
lfa 
lfd 
282 
281 
284 
285 
208 
28b 


2c 
28d 
218 
211 
raph 


213 
215 
218 


2la 
21d 
220 
221 
223 
224 
225 
226 
227 
229 


22c 
22F 
230 
233 
234 
235 
236 
237 
238 
239 
23b 


23e 
241 
244 


e182 


e283 
1883 
cab2 
Fewe 
ddg3 
1883 


cave 


Feme 
2283 


8583 


A7B2 


Gs 
2cB2 


b382 
3f 83 
2cB2 


4th level of subroutines 


ghb: call ghb + loader ghb - adds byte gotten to D-reg 
push psw 
add d 
mov d,a 
pop psw 
ret 


wore OOOO end of 4th level of subroutines OR 20 Ror RIK 


JORUOSIGIIOIIIIE end of loader UCU II IOI IIIT 


FOI III III III IIIT TOOT IIT AOI TOSS ITO III IAI IS IAA IIIA. 


Common code for dump and punch routine. 
Must not destroy a register 


Pe See erred 


|—p? xd d,plo ;prompt for lo limit 
call msg 
call ghw 
de error ;jump if error 
1x4 d,phi sprompt for hi limit 
call msg 
xchg 
call ghw 
xchg 
jc error 
call okck 
re yreturn if aborted by okck call 
$ 
3 (h&l) = beginning address (d&e) = ending address 
push h 3 
call subl6 ;calc number of bytes to be processed 
xchg ry 
pop h ; 
dex d ;d&e = number of bytes 


Call routine originally requested 


cpl ‘pe 
jz punch i 
cpl ‘Dp? | 
: else dump | 
3; Dump routine 
3 
dump: call erif 390 to new line 
call phw ;print memory address 
mov a,l 3;make locations with same lower 4 bits 
ant WIDTH ; land tn same columns in first line 
mov cya 3; as in other lines 
add a ymultiply by 3... | 
add cS Fy 
mov c,a smove count to c 
mvi age ;space over to appropriate column 
call repeat j;print (c) (a) times 
dil: call space 
mov a,m yget byte 
call phb yprint it 
inx h point to next byte 
inx d ;decrement count of number of bytes left 
mov e : 
ora d 3 
re 3return if zero left 
mov a,l 
ani WIDTH sprint crlf on multiple of 16 
jnz dil 
call Clgihg 3go to new line ‘ 
call phw 3;print memory address 
jmp dil : 


OS ESOR ORES end of dUMp UOOMOBHECEEIE EE IER Ite 


cay 
712 
713 
714 
715 
716 
717 
718 
dele 
728 
721 
Wee: 
723 
724 


726 
727 
728 
729 
738 
731 
732 
733 
734 
735 
736 
737 


739 
748 
741 
742 
743 


745 
746 
747 
748 
749 
758 
751 


764 
765 
766 
767 
768 


247 
24a 
24c 
24f 
258 
251 
253 
254 
257 
258 
259 
25a 
25d 
25e 


261 
262 
265 
266 
267 
268 
269 
26a 
26d 
26e 
26f 
271 


274 
275 
276 
277 
27a 


27d 
27e 
27f 
288 
283 
286 
289 


28a 
28c 
28e 
291 
293 


b382 


8ab2 


[CUO SOCIO ISIE IUICIIOIICICISIOIOIOICIOIOSIOTIOICISIIOIICIOIOIOIIOI IOI IOI RITE 


: 
+ *** Punch Hex Tape in INTEL format *** 
: 

spreliminary processing done at dp 


punch: call erlf 


mvi ate! yprint record mark 
call co : 
mov aye yeale number of bytes in record 
cma 3 & start accumulating check sum 
ant WIDTH : 
tne a ; 
call phb sprint number of bytes in record 
add h yadd load address to check sum 
add 1 ; 
mov bya sinitialize checksum 
call phw ;load address 
xra a 3 
call phb srecord type 
3 
pnxtbyt:mov aym ; 
call phb 3 
add b yaccumulate checksum 
mov bya ] 
inx d 4 
mov aye ; 
ora d ; 
jz pdone 3 
inx h $ 
mov a,e test for end of record 
ani WIDTH 3 
jnz pnxtbyt iP 
mov a,b 3;end of record processing 
cma y;compliment checksum 
{nr a 3 
call phb 3 
jmp punch 3 
pdone: mov a,b ;compliment last checksum 
cma ; 
inr a i] 
call phb ; 
Ixd d,endrec 3 
call msg + 
ret $ 
$ 
end punch oi 
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UTILITY ROUTINES - in alphabetical order 


3 
i 
3 
3 
[OOOO SICIGIOI OIC OI IOI III IOI TOIT IO IOI IOS II ASI OI ASIA III IISA I IIIA IA SAAS. 


1/0 routines 


cI: in sercon 
ant 2 
jz cl 
in serdat 
ret 


xeeREH Cmpl6 ** 16 bit compare h&] and d&e *#*RNRRRR KERRIER 


ts if( h&l = d&e ) 2#1, cy=2 *** crafty and very *** 

5 1f( h&l > d&e ) z=, cy=s *** useful routine if *** | 
$# if( h&l < d&e ) 258, cy=1 *** ever room BH | 
A 3? push h ssave psw & h&l 

’ push psw $ 

a mov a,h 31f h l= d enough info found 

; sub d $ 

3 jnz cmpl6e FY 

: mov a,l 31f h=d then compare lower bytes 


sub e 


sempl6e: pop h ; 
: mov a,h ; 
; pop h 3 
7 ret : 
i 3 

end cmd16 3 


CICO - input char then echo it 


ec eRe nls At ne pt tn ae ee 
; * * 
‘ wt MUST BE IMMEDIATELY FOLLOWED * 
; Ld BY CO * 
f * * 
. JOIOIII III III III III SIO III III I II III IIS 
: 
B81 294 cd BaB2 CICO: call cl + 
‘ 
;**** CO Console Output - destroys only flags... 
: 
3 ».-char passed in a register 
886 297 f5 co: push psw 
827 298 db 1 cl? in sercon 
ao8 29a f re 
829 29b d2 9882 jne cl 
818 29e fl pop psw 
811 29F d3 a out serdat 
812 2al fe d cpl Bdh 3if cr then delay 
813 2a3 c8 rz 3 
814 2a4 f5 push psw 
815 2a5 3e 1 mvt a,CRDLY+1 : 
816 2a7 3d c2t der a ’ 
817 2a8 ca b182 jz c3 : 
818 2ab cd bcB2 call dims sdelay 19mS 
819 2ae c3 a702 jmp 2 3 : 
828 2b1 fl c3: pop psw 
821 2b2 c9 ret 
823 2b3 d5 crif? push d 
824 2b4 11 a5B83 Txt dymer lf 
825 2b7 cd 1083 call msg 
826 2ba dl pop d 
827 2bb c9 ret 
’ 
; di@ms - Delay 18 mS 
: 
831 2bc e5 digms: push h 3 
832 2bd f5 push psw 3 
833 2be 21 183 1x4 h,769° 
834 2cl 7d dtwidl? mov a + 39.81 seconds on a 4 MHz 8985 5 
835 2c2 b4 ora h 3 3 4 
836 2c3 2b dcx 3 3 18 
837 2c4 c2 c1B2 jnz dtwidl 3 Hy 8985/8288 T/A 
838 2c7 fl pop psw rie ey total 26/29 
839 2c8 el pop h ; 
849 2c9 c9 ret $ 
3 : 
3 end digms 
; GHW - Get Hex Word 
: Read 4 hex digits frm terminal & convert to 16 bit word 
; 
$ INPUT + None 
3 OUTPUT : 1f (no non-hex charaters typed) 
3 (h&1) = hex word typed 
3 (a) = garbage 
3 cy = 2 
3 else 
3 (h&1) = garbage 
3 (a) = bad character as received from CO 
: cy =1 } 
3 
; REGISTERS CHANGED: h, 1, flags | 
" iaseraep er 
861 2ca cB ghw: push b 
862 2cb f5 push psw 


863 2cc cd e182 call ghb ; get first byte In a-register 
864 2cf da def2 je ghwend ; return {f bad char 
865 2d2 67 mov haa } move byte to final destination 
866 2d3 cd e182 call ghb + get second byte 
867 2d6 da deB2 je ghwend ; 
868 2d9 6F mov a : 
869 2da cl pop b : 
87 2db 78 mov a,b : 
871 2dc cl pop b ; 
872 2dd c9 ret 3 
873 2de cl ghwend: pop b 3 
874 2df cl pop b ; do NOT restore a 
875 2e8 <9 ret ; 
end ghw ; 


GHB - Get Hex Byte 
Read 2 hex digits from terminal & convert to 8 bit word 


INPUT +: None 
OUTPUT = 1f (no non-hex charaters typed) 


= Hex byte typed 
= 8 
else 
(a) = bad character as received from CO 
cy al 
REGISTERS CHANGED: a, flags 


895 2el cS save b&c 


Hai 54 rap ca ds) Sage ee SS NSO ee wR 
o 


hb: push b 


896 2e2 cd F602 call ghd } get first hex digit tn a-reg 
897 205 da F402 je ghbend ; if bad char quit and pass back 
898 2e8 7 re { shift to upper half of byte 
899 2e9 7 re eet 
998 2ea 7 ric ; . 
991 2eb 7 rie ie as 
992 2ec 47 mov bya } save first digit 
993 2ed cd F682 call ghd } get second’ digit 
994 28 da F402 je ahbend ; bad char read, ret {t to caller 
986 2f3 bs ; ora b } combine first and second digits 
ul 3 
998 2f4 cl ghbend: pop b } restore original b&c 
989 2f5 c9 ret $ 
, 
end ghb 3 


GHD - Get Hex Digit 
Read 1 hex digit from terminal & convert to 4 bit nibble 


INPUT + None 
OUTPUT : if (valid hex character typed) 


(a) = Bxh, x = hex digit typed 


cy =@ 

else 
fa) = bad character as received from CO 
cy ad 


REGISTERS CHANGED: a, c, flags 


Se ee ee ee eed 


929 2f6 cd 9482 ghd: call cIco 3 get character & echo 
ani B7fh 3; put in if ucase taken out 
931 29 cd 9193 call ucase 3} map lower to upper case and 
: 3; strip parity. 
933 2fc fe 30 cpi ‘g" 
934 2fe dB re 3 non-hex character 
935 2ff fe 3a cpi ee nf Cai oeg Verse 
5936 381 da d@3 je ghd2 3 'g'-'9' typed - convert 
937 384 fe 41 cpi ‘A’ ety Cade AE 
938 396 dB re 3 non-hex character 
939 387 fe 47 cpl 'G’ otf Malt oe ha 
948 389 3f eme 3 


941 38a dB re non-hex character 


942 
943 
944 


952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 


967 
968 
969 
978 
371 
972 
973 
974 
975 
976 
977 
978 
979 
982 
9B1 


995 
996 
997 
998 
999 
1988 
1981 


1815 
1816 
1817 
1818 
1819 
1828 


32b 
38d 
SOF 


318 
311 
312 
313 
315 
318 
3lb 
3le 
if 
328 
321 


322 
323 
324 
327 
32a 
32d 
32t 
331 
334 
337 
33a 
33b 
33¢ 
33d 
33e 


33F 
348 
341 
344 
345 
348 
349 


34a 
34b 
34c 
34d 
3he 
S4f 


d6 
d6 
co 


Tf 
1f83 
9782 


1283 


AaB3 
4aB3 


sul 87h - shfftt "A‘="F* down 
ghd2: sul "B' 3 convert 
ret : 
' 
end ghd FY 
Subroutine to print message pointed to by DE and 
terminated by SFFh byte. 
destroys no registers 
msg: push psw 
push 
loupe: Idax d ;get char 
cpl Bffh send of string? 
jz mdn ;jump if so 
call co yelse print it 
inx d ;bump pointer 
jmp loupe ;do it again 
mdnt pop d 
pop psw 
ret 


3 
; 
3; routine to verify an entry 
: 
oO 


kok s push d uF 
push psw 
Txt d,mok 
call msg 
call cl 
ani B7Ffh 
cpl @dh 
jz okckend 
xt d,abort 
call msg 
ste 

okckend: pop d 
mov a,d 
pop d 
ret 
end okck 


Convert 


INPUT 3: 
OUTPUT + 


TI van. tor “asl len os tenor “onnetov Ss 


hws push 
mov 
call 
mov 
call 
pop 
ret 


end 


Convert 


INPUT 
OUTPUT = 


ipso ealah et oujas abide) as you one 


hb: push 
mov 
rre 
rre 
rre 
rre 


PHW - Print Hex Word 


16 bit word to asci1 and print 


(h&1) = word to be printed 
None 


REGISTERS CHANGED: None 


psw 3 save a-register and flags 

a,h 3 

phb ; print high-order byte 

a,l 3 

phb } print low-order byte 

psw 3; restore a-register and flags 
3 
; 

phw 3 


PHB - Print Hex Byte 


8 bit byte to ascii and print 


(a) = Byte to be printed 
None 


REGISTERS CHANGED: Flags 


b 
b,a 


save b&c 
save lower nibble 
shift to lower half of byte 


1821 358 cd 5a3 call phd print upper hex digit 


: 
1822 353 78 mov a,b 3 get lower nibble 
1823 354 cd 5a83 call phd 3 ++-and print 
1924 357 78 mov a,b + restore original byte to a 
1825 358 cl pop b } restore b&c 
1926 359 ¢9 ret ; 
end phb ; 


PHD ~ Print Hex Digit 
Convert hex digit to ascii and print it 
INPUT +: (a) = ?xh where x 1s the hex digit to be printed 
the 7 nibble is immaterial 
OUTPUT : None 


REGISTERS CHANGED: flags 


Soe eee 


1841 35a c5 hd: push b ysave a&c 
1842 35b 47 mov bya 3 
1843 35c e6 f ani BFh ; mask off lower nibble 
1844 35e c6 38 adi AB ; convert '@'-'9' to ascii 
1945 368 fe 3a cpl WQtaT ay ate eg 
1846 362 da 6783 de phdl ; then done 
1947 365 c6 7 adi i tel i 3 convert 'A'-'F! 
1948 367 cd 9782 phdl: call co 3; print digit 
1849 36a 78 mov a,b ;restore registers 
1958 36b cl pop b + 
1951 36c c9 ret ; 
; 
5 


end phd 


+ 
5 
; ****#* prbad - print ' WHAT 7' **** DESTROYS D&E **** 
; 
P 


1958 36d 11 a8M3 prbad: xi | d,bad 3 
1859 378 c3 1883 jmp msg 31 know, very bad code... 
; end prbad 
; 
;Subroutine to print (a) (c) times 
3 uses a, c...(c) = B on exit 
1966 373 ¢ repeat: inr c 3check for printing (c) #@ times 
1867 374 d der c 3 
1868 375 cB repli: rz 
1869 376 cd 9782 call co 
10978 379 d der ¢ 
1971 37a c3 7583 jmp repl 
; 
3 ***** space ***** print space 
1975 37d f5 space: push psw 
1076 37e 3e 28 mvt a 
1877 388 cd 9782 call co 
1878 383 fl pop psw 
1979 384 c9 ret 


wee sUbIE ***** 16 bit subtract (h&l) <- (h&1) - (d&e) 


if (d&e) << (h&1) cy=1 

if (d&e) >= (h&1) cy = @ 
1886 385 d5 sub16: push d ; 
1987 386 f5 push psw : 
1988 387 7d mov a,l ; 
1989 388 93 sub e ; 
1998 389 6f mov l,a 3 
1991 38a 7c mov a,h 3 
1992 38b 9a sbb d 3 
1993 38c 67 mov h,a 3 
1994 38d dl pop d 3 
1895 38e 7a mov a,d 3 
1996 38f dl pop d ( 
1997 398 c9 ret 3 


UCASE - subroutine which checks the A reg for a lower case 


1157 


391 
393 
395 
396 
397 
399 
39a 
39c¢ 


39d 
3a5 


3aB8 
Saf 
3bm 
3b1 
3b3 
3b4 
3b6 
3b7 
3b9 
3ba 
3bc 
3bd 
3bf 


3c8 


3c2 
3ed 


3ce 
3d2 


3d3 
3d5 
3d6 


3d7 
3de 


3dd 
3el 


3e2 
3e8 


3e9 


Seb 
Bed 


See 
ches 
3f6 


13FF 
18ff 


1h 


BASE 
co 


7b 
28 


; ASCII letter. If one present, 
; If not present, nothing done. 
u 


it {s converted to upper case. 
Strips parity first. 


case: ant B7Fh ;strip parity 
cpl 61h 
cme 
rnc 3;don't convert if before '‘a' 
cpl Tbh 
rnc ydon't convert {f after 'z' 
sul 20h ;convert lower to upper 
ret 


4 


abort: db ' ABORT I! 
41 42 4f 52 54 2@ 21 
merlf: db Bdh, ah, @ffh 
otf 
bad: * WHAT 7° 
57 48 41 C4 20 af 
db h 
cmdst = db tt 
dw loader 
db ‘et 
dw memed 
db ‘G: 
dw goto 
db *D! 
dw d_p 
db "pt 
dw d_p 
db a 
endrec: db Bdh, ah 
a 
db ' :BO080081F F! 
38 38 38 38 32 aa 38 31 46 46 
db 
form: db met 
28 3d 20 
db atfh 
form2: db Bdh, @ah 
a 
db ge 
db BFF 
mok? ‘OK 2" 
4f 4b 20 at 
db BFfh 
phit db Tor +t 
54 4f 28 
db BF fh 
plot db ‘FROM ' 
46 52 4f 4d 28 
db Bffh 
prmpt: db ®dh, Bah 
a 
db vies 
3e 
db offh 
start: db Bdh,Bah 
a 
db 'MSF8.6° 
33 46 38 2e 36 
db Bdh, Sah, @ffh 


a ff 


org MEMTOP-@ 
3 
STACKINIT equ $ 
3 
answer db 1 


ROM constant allocation - alphabetical order 


;command table 


common code for dump and punch 


5 
3 
3; commands. 


send of table mark 
yend of record for punch 


RAM allocation if alphabetical order 


;MEMTOP - (# bytes alloc - 1) 


initial stack pointer overlaps 
lowest byte allocated. 


} answer to question 


; At this point $ should = MEMTOP 


x end 
28a CI 
& CRDLY 


294 CICO 
13¢f MEMTOP 


STACKINIT iz 
answer 18F 
baudl 8c 
baud5S 298 
<3 182 
cmds d2 
dims lee 
dil 198 
done 2cl 
el 169 
e4 148 
entry fe 
form 3d3 
ghb 2f4 
ghd2 2ca 
goto 1e6 
loop 312 
mdn l2a 
msg 157 
okck 33b 
phb 35a 
phi 33f 
pnxtbyt 17d 
prmpt 247 
repeat 1918 
rst75 

space See 
timct] 21 
ucase 


next 
okckend 
phd 

phw 

pr 
punch 
rst55 
sercon 
start 
timel 


